lope (2 - (29 $9 ^ Ge, 


Needs Ye 12% las 


(5 FreVIEW (GL Frogram) 
4 Al Feng 


Ocedsffanally, you may encounter a BOOT program which more 
closely resembles a series of ‘direct commands’ rather than a 
SuperBASIC program using line numbers. This is economical, but 
makes it difficult to modify. This is a bother when you want to 
convert to floppy disks from microdrive tapes. An example of 
this is the BOOT for the Turbo TOOLKIT: 

_ase=respr(é144)sibytes MDVI turbo tk code, basesprint #0; 

STOF PRESS! PLEASE READ UPDATES DOC! scalll |basesnew 
This ‘program’, for example, cannot be LISTed on the screen in 
the normal manner by "breaking" into it by using CTRL SPACE, and 
the typing LIST. If you cannot look at it, how can you modify 
it? One solution is to use the HARDCOPY program which from the 
last issue. Of course, you may not wish to use an entire sheet 
Of paper for what amounts to a two line program. 


FPreVIEW can be used to look at either an ASCII or | doc file on 
a microdrive or disk without actually loading the program and/or 
Quill and the file doc. 


The programming logic used in preVIEW is similar to that used 
in the HARDCOPY program. While similar, preVIEW has several 
changes and programming enhancements. If you decide to take 
advantage of the similarity between the two programs by simply 
editing the earlier program, you should first note the variances 
prion to editing. 


For people who want to use this program with floppy disks 
instead of microdrives, you simply have to change the "mdv" to 
"flp" in line 110. 


The screen is set up for an 80 column composite monitor. If 
you cannot see the "help" screen on the top OR the left/right 
margins of the interior screen, then reduce the window (line 
140) to something likes Window 435,226,40,14. 

NOTE: The lines that are comparable are: 


preVIEW HARDCOFY 
120 130 
160 —- x30 190 —- 360 
240 — 430 390 — 460 
Gy Similar lines are: 
S40 & 250 S70 & BBO 
450 — 480 480 — 820 


PreVIEW Program Listing 


100 REMark Fre-VIEW [by Alphonso Feng; 13 Nov 1987] 
110  drwv$z"l"srtypetz"mdy" 
i20 OPENS, scr 5312x2595a0x0: PAPER#G, 7: INK#8, 4: RORDERHS, 1,7 


A 


OFENS1O0, scr 460x14a3O0xO: PAPER#10, 7: INK#10, 4: BORDER#10,1,7 
MODE 4:WINDOW 4355, 226,20,14: PAPER 7: INK 4: BORDER 1,4 
CLS: INE O:PRINTS\" preVIEW from "stypefsdrv$;"_ "s INK 2 
DIM dir#(76,15) :DELETE type$ & "1 FILE.DIRectory" 

OPEN NEW #5, type$ & "1 FILE.Directory" 

DIR #5, type$ & drv# & " " 

PRINT 43,"———-—" 

CLOSE #5 

OFEN IN #6, typet & "1 FILE.Directory" 

FOR co to 76 

INFUT #6, dir#(c) 

IF dir$(c)z"————" THEN EXIT c 

END FOR c 

CLOSE #4 

cmc-i1 

AT 1,19: PRINT dir$(0),,,,PFRINT dirii) 

AT 3,0: CLS 2 

FOR ni TO c-1 

PRINT "EC"; CHR#(n+48)! 

PRINT "J "s dir#(n+1), 


END FOR n 
CLS810:PRINTH1ON," CO] "stype$;"2_, [.J “stype$;"1_, [/] 
Quit, E PREFIX J TO ";UNDERS10, 13:PRINT#10\"preVIEW"s : 
UNDER#10, 0 

INK 4: AT 1, 35: PRINT " —- pre —- VIEW —— ": INK O 


REFeat key 

akey=CODE CINEKEY:$) 

IF akey>45 AND akey<128 THEN EXIT key 
END REFeat key 

akey=akey-43 

IF akey=-2 THEN 

IF drv$*1 THEN drv$=drv$—-1:G0 TO 150 


END IF 
IF akey=~1 THEN CLS: PRINTNNNNN,,," HIT <ANYKEY? TO EXIT" 
NAN Negril for SuperBASIC": PAUSE 


IF NOT akey THEN 

drv$=drvé+1l: GO TO 150 

ELSE 

IF akey<c THEN COPY typet&drv$£&t" " & dir$(akey-*1) TO 
con, 455x226a30x14 

CLSS10:PRINTH1O,,,, " HIT ANY KEY TO CONTINUE":PAUSE: 
GO TO 140 

END IF 


